﻿Imports System.ComponentModel
Imports DTO
Imports DAO

Public Class HeThongBUS

    Shared Function layDSHeThong(tu As String, den As String) As ComponentModel.BindingList(Of NhatKyDTO)
        tu = tu + " 00:00:00"
        den = den + " 23:00:00"
        Return HeThongDAO.layDSHeThong(tu, den)
    End Function

    Shared Function themNhatKy(maND As String, cn As String, hangDong As String, doituong As String) As Integer
        Dim nk As New NhatKyDTO
        nk.MaNguoiDung = maND
        nk.ChucNang = cn
        nk.HanhDong = hangDong
        nk.DoiTuong = doituong
        nk.MayTinh = System.Environment.MachineName
        nk.ThoiGian = DateTime.Now
        Return HeThongDAO.themNhatKy(nk)
    End Function

    Shared Function layTenSever() As String
        Return HeThongDAO.layTenSever()
    End Function

    Shared Function layDataBase() As String
        Return HeThongDAO.layDataBase()
    End Function

    Shared Sub dongKetNoiDatabase()
        HeThongDAO.dongKetNoiDatabase()
    End Sub



End Class
